SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
Create Procedure [dbo].[SP_TMUSUA_D10]
/*------------------------------------------------------*/
/*---- Empresa           : OFISIS S.A.              ----*/
/*---- Cliente           : OFISIS S.A.              ----*/
/*---- Sistema           : Seguridad                ----*/
/*---- Módulo            : Seguridad                ----*/
/*---- Programa          : Mantenimiento Usuarios   ----*/
/*---- Script            : TMUSUA                   ----*/
/*---- Nombre SP         : SP_TMUSUA_D10            ----*/
/*---- Desarrollado por  : Gianmarco Lindo Huertas  ----*/
/*---- Fecha Creación    : 21/06/2002               ----*/
/*---- Base de Datos     : SQL                      ----*/
/*---- Versión           : 7.0                      ----*/
/*---- Invoca a SP       : SP_DROPLOGIN             ----*/
/*------------------------------------------------------*/
/*------------------------------------------------------*/
/*---- Modificado 1 por     :                       ----*/
/*---- Fecha Modificación   :                       ----*/    
/*---- Detalle Modificación :                       ----*/  
/*----                                              ----*/
/*------------------------------------------------------*/
/*------------------------------------------------------*/
/*---- Comentarios:                                 ----*/
/*----                                              ----*/
/*----                                              ----*/
/*------------------------------------------------------*/
/*------------------------------------------------------*/
/*---- Drop Proc SP_TMUSUA_D10                      ----*/
/*---- Grant All On SP_TMUSUA_D10 to PUBLIC         ----*/
/*------------------------------------------------------*/
@ISCO_USUA		TD_VC_008

WITH ENCRYPTION 
As

  ---Elimina Usuario de la tabla de filtros x usuario
     Delete TDPARA_PRUS
     Where CO_USUA = @ISCO_USUA
     If @@error != 0
       Begin
         Rollback tran
         Return
       End

  ---Elimina Usuario de la tabla de filtros x usuario
     Delete TTPARA_PRUS
     Where CO_USUA = @ISCO_USUA
     If @@error != 0
       Begin
         Rollback tran
         Return
       End

  ---Elimina Usuario de la tabla de Claves de usuario
     Delete TDUSUA_CLAV 
     Where CO_USUA = @ISCO_USUA
     If @@error != 0
       Begin
         Rollback tran
         Return
       End

  ---Elimina Usuario de las tablas de Registros
     Delete TDREGI_INSA
     Where CO_USUA = @ISCO_USUA
     If @@error != 0
       Begin
         Rollback tran
         Return
       End


     Delete TDREAP_INSA
     Where CO_USUA = @ISCO_USUA
     If @@error != 0
       Begin
         Rollback tran
         Return
       End

  --- Elimina Usuario
     Delete TMUSUA 
     Where CO_USUA = @ISCO_USUA
     If @@error != 0
       Begin
         Rollback tran
         Return
       End


 Return
 /*------------------------------ Fin -------------------------------*/

GO
